% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/frs_active_ids.R
\name{frs_active_ids}
\alias{frs_active_ids}
\title{Download huge national COMBINED file and find which IDs are ACTIVE sites in FRS}
\usage{
frs_active_ids(
  active = TRUE,
  closecodes = c("CLOSED", "PERMANENTLY CLOSED", "PERMANENTLY SHUTDOWN", "INACTIVE",
    "TERMINATED", "N", "RETIRED", "OUT OF SERVICE – WILL NOT BE RETURNED",
    "CANCELED, POSTPONED, OR NO LONGER PLANNED"),
  zfile = "national_combined.zip",
  zipbaseurl = "https://ordsext.epa.gov/FLA/www3/state_files"
)
}
\arguments{
\item{active}{optional. If TRUE, default, returns the registry IDs of sites that seem to be active,
or not obviously inactive, at least, based on closecodes. If FALSE, returns
IDs of sites that are inactive.}

\item{closecodes}{optional, vector of values of ACTIVE_STATUS field assumed
to mean site is inactive}

\item{zfile}{optional Default is national_combined.zip
which contains NATIONAL_ENVIRONMENTAL_INTEREST_FILE.CSV}

\item{zipbaseurl}{optional Default is \url{https://ordsext.epa.gov/FLA/www3/state_files}}
}
\value{
vector of FRS IDs that seeem to be active (actually, not clearly inactive sites)
assuming parameter active=TRUE, which is the default
}
\description{
Download huge national COMBINED file and find which IDs are ACTIVE sites in FRS
}
\examples{
\dontrun{ # This takes a while for the download.
  # frs <- frs_get()
  # closedid <-  frs_active_ids(active=FALSE) # <- frs_inactive_ids()  
  # frs <- frs_drop_inactive(frs, closedid = closedid)
  # usethis::use_data(frs, overwrite = TRUE)
  }
}
\seealso{
\code{\link[=frs_inactive_ids]{frs_inactive_ids()}}  \code{\link[=frs_update_datasets]{frs_update_datasets()}}
}
